﻿Public Class FrmDate

    Private Sub BtnAceptar_Click(sender As System.Object, e As System.EventArgs) Handles BtnAceptar.Click

        FrmSyncLogic.DateStarted = True
        AccessFiles.DateSelected = CDate(MocFecha.SelectionStart.ToShortDateString)
        FrmSyncLogic.LblDate.Text = AccessFiles.DateSelected.ToString
        FrmSyncLogic.LblDate.Width = 67

        Me.Close()

    End Sub

    Private Sub BtnCancel_Click(sender As System.Object, e As System.EventArgs) Handles BtnCancel.Click

        Me.Close()

    End Sub

End Class